library(ggplot2)
library(data.table)
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
library(TSstudio)
#read data as a table
x_train <- read.table("/Users/okansayar/Desktop/R/RStudio Directory/UWave/uWaveGestureLibrary_X_TRAIN")
y_train <- read.table("/Users/okansayar/Desktop/R/RStudio Directory/UWave/uWaveGestureLibrary_Y_TRAIN")
z_train <- read.table("/Users/okansayar/Desktop/R/RStudio Directory/UWave/uWaveGestureLibrary_Z_TRAIN")
ecg <- read.table("/Users/okansayar/Desktop/R/RStudio Directory/UWave/ecgTrain")
#combine these tables in a three different col.
mdata <- data.frame(c1 = x_train,
c2 = y_train,
c3= z_train)
#see the time series
##mdata
ts.plot(mdata)
#in a three different dimension vector
x=x_train$V2
y=y_train$V2
z=z_train$V2
#plot result
p=plot_ly(ecg,x=~x,y=~y,z=~z)
p
## No trace type specified:
## Based on info supplied, a 'scatter3d' trace seems appropriate.
## Read more about this trace type -> https://plotly.com/r/reference/#scatter3d
## No scatter3d mode specifed:
## Setting the mode to markers
## Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode
#Part b
library(readxl)
#read & check data
ildist = read_xlsx("/Users/okansayar/Desktop/R/RStudio Directory/ilmesafe.xlsx")
ildist
## # A tibble: 81 × 83
## `Ä°L PLAKA NO` `Ä°L ADI` ADANA ADIYAMAN AFYONKARAHÄ°SAR AÄžRI AMASYA ANKARA
## <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 01 ADANA 0 338 579 978 604 492
## 2 02 ADIYAMAN 338 0 917 646 628 738
## 3 03 AFYONKARAHİS… 579 917 0 1320 596 255
## 4 04 AÄžRI 978 646 1320 0 740 1056
## 5 05 AMASYA 604 628 596 740 0 331
## 6 06 ANKARA 492 738 255 1056 331 0
## 7 07 ANTALYA 548 886 287 1426 824 543
## 8 08 ARTVÄ°N 1005 717 1225 365 679 960
## 9 09 AYDIN 881 1219 340 1635 936 596
## 10 10 BALIKESÄ°R 903 1241 324 1576 842 536
## # … with 71 more rows, and 75 more variables: ANTALYA <dbl>, ARTVİN <dbl>,
## # AYDIN <dbl>, BALIKESİR <dbl>, BİLECİK <dbl>, BİNGÖL <dbl>, BİTLİS <dbl>,
## # BOLU <dbl>, BURDUR <dbl>, BURSA <dbl>, ÇANAKKALE <dbl>, ÇANKIRI <dbl>,
## # ÇORUM <dbl>, DENİZLİ <dbl>, DİYARBAKIR <dbl>, EDİRNE <dbl>, ELAZIĞ <dbl>,
## # ERZÄ°NCAN <dbl>, ERZURUM <dbl>, ESKÄ°ÅžEHÄ°R <dbl>, GAZÄ°ANTEP <dbl>,
## # GİRESUN <dbl>, GÜMÜŞHANE <dbl>, HAKKARİ <dbl>, HATAY <dbl>, ISPARTA <dbl>,
## # MERSİN <dbl>, İSTANBUL <dbl>, İZMİR <dbl>, KARS <dbl>, KASTAMONU <dbl>, …
str(ildist)
## tibble [81 × 83] (S3: tbl_df/tbl/data.frame)
## $ Ä°L PLAKA NO : chr [1:81] "01" "02" "03" "04" ...
## $ Ä°L ADI : chr [1:81] "ADANA" "ADIYAMAN" "AFYONKARAHÄ°SAR" "AÄžRI" ...
## $ ADANA : num [1:81] 0 338 579 978 604 ...
## $ ADIYAMAN : num [1:81] 338 0 917 646 628 ...
## $ AFYONKARAHÄ°SAR : num [1:81] 579 917 0 1320 596 ...
## $ AÄžRI : num [1:81] 978 646 1320 0 740 ...
## $ AMASYA : num [1:81] 604 628 596 740 0 331 824 679 936 842 ...
## $ ANKARA : num [1:81] 492 738 255 1056 331 ...
## $ ANTALYA : num [1:81] 548 886 287 1426 824 ...
## $ ARTVÄ°N : num [1:81] 1005 717 1225 365 679 ...
## $ AYDIN : num [1:81] 881 1219 340 1635 936 ...
## $ BALIKESÄ°R : num [1:81] 903 1241 324 1576 842 ...
## $ BÄ°LECÄ°K : num [1:81] 786 1039 207 1361 626 ...
## $ BİNGÖL : num [1:81] 633 348 1099 352 642 ...
## $ BÄ°TLÄ°S : num [1:81] 746 414 1290 232 833 ...
## $ BOLU : num [1:81] 689 927 417 1146 411 ...
## $ BURDUR : num [1:81] 649 987 166 1403 762 ...
## $ BURSA : num [1:81] 857 1111 278 1417 683 ...
## $ ÇANAKKALE : num [1:81] 1097 1390 518 1694 959 ...
## $ ÇANKIRI : num [1:81] 591 769 398 987 247 131 686 882 738 663 ...
## $ ÇORUM : num [1:81] 582 704 505 831 91 240 732 720 845 786 ...
## $ DENÄ°ZLÄ° : num [1:81] 762 1100 221 1516 817 ...
## $ DÄ°YARBAKIR : num [1:81] 538 206 1110 440 707 ...
## $ EDÄ°RNE : num [1:81] 1183 1421 682 1641 906 ...
## $ ELAZIÄž : num [1:81] 496 284 961 492 538 ...
## $ ERZÄ°NCAN : num [1:81] 677 548 955 370 375 ...
## $ ERZURUM : num [1:81] 809 522 1141 182 560 ...
## $ ESKÄ°ÅžEHÄ°R : num [1:81] 691 959 141 1298 574 ...
## $ GAZÄ°ANTEP : num [1:81] 216 151 795 762 583 ...
## $ GÄ°RESUN : num [1:81] 720 706 868 539 322 ...
## $ GÜMÜŞHANE : num [1:81] 780 678 1027 381 424 ...
## $ HAKKARÄ° : num [1:81] 910 655 1489 425 1164 ...
## $ HATAY : num [1:81] 196 317 776 957 681 ...
## $ ISPARTA : num [1:81] 619 957 167 1373 719 ...
## $ MERSÄ°N : num [1:81] 69 407 572 1047 638 ...
## $ Ä°STANBUL : num [1:81] 951 1189 450 1408 674 ...
## $ Ä°ZMÄ°R : num [1:81] 908 1246 329 1649 925 ...
## $ KARS : num [1:81] 1014 727 1343 214 762 ...
## $ KASTAMONU : num [1:81] 696 875 504 990 255 237 791 846 844 677 ...
## $ KAYSERÄ° : num [1:81] 335 421 523 816 344 316 616 823 825 848 ...
## $ KIRKLARELÄ° : num [1:81] 1160 1398 659 1617 882 ...
## $ KIRÅžEHÄ°R : num [1:81] 377 556 425 940 313 183 570 942 765 706 ...
## $ KOCAELÄ° (Ä°ZMÄ°T) : num [1:81] 841 1079 340 1298 563 ...
## $ KONYA : num [1:81] 358 696 226 1112 510 ...
## $ KÃœTAHYA : num [1:81] 676 1014 97 1377 653 ...
## $ MALATYA : num [1:81] 397 186 863 587 460 ...
## $ MANÄ°SA : num [1:81] 887 1224 308 1628 903 ...
## $ KAHRAMANMARAÅž : num [1:81] 198 163 777 809 508 ...
## $ MARDÄ°N : num [1:81] 549 295 1128 514 802 ...
## $ MUÄžLA : num [1:81] 858 1196 364 1658 959 ...
## $ MUÅž : num [1:81] 743 456 1208 241 751 ...
## $ NEVÅžEHÄ°R : num [1:81] 288 504 444 889 358 275 537 896 746 769 ...
## $ NÄ°ÄžDE : num [1:81] 210 548 464 940 440 340 545 947 766 788 ...
## $ ORDU : num [1:81] 708 732 823 584 277 ...
## $ RÄ°ZE : num [1:81] 918 772 1077 430 531 ...
## $ SAKARYA (ADAPAZARI): num [1:81] 803 1041 302 1261 526 ...
## $ SAMSUN : num [1:81] 754 757 676 730 131 ...
## $ SÄ°Ä°RT : num [1:81] 721 390 1297 328 894 ...
## $ SÄ°NOP : num [1:81] 868 883 676 894 257 ...
## $ SÄ°VAS : num [1:81] 428 413 706 618 221 ...
## $ TEKÄ°RDAÄž : num [1:81] 1082 1320 581 1539 804 ...
## $ TOKAT : num [1:81] 493 517 645 674 113 380 873 617 985 926 ...
## $ TRABZON : num [1:81] 839 780 998 482 452 ...
## $ TUNCELÄ° : num [1:81] 631 419 1079 419 498 ...
## $ ÅžANLIURFA : num [1:81] 355 112 934 617 711 ...
## $ UÅžAK : num [1:81] 691 1029 112 1432 708 ...
## $ VAN : num [1:81] 905 573 1424 228 967 ...
## $ YOZGAT : num [1:81] 490 619 479 841 200 214 683 829 819 760 ...
## $ ZONGULDAK : num [1:81] 765 1003 484 1205 471 ...
## $ AKSARAY : num [1:81] 268 580 368 965 421 224 461 972 670 692 ...
## $ BAYBURT : num [1:81] 801 676 1080 305 457 ...
## $ KARAMAN : num [1:81] 293 631 340 1113 621 ...
## $ KIRIKKALE : num [1:81] 486 665 338 985 260 74 563 889 679 620 ...
## $ BATMAN : num [1:81] 634 302 1210 366 807 ...
## $ ÅžIRNAK : num [1:81] 720 465 1299 424 1001 ...
## $ BARTIN : num [1:81] 784 1022 518 1171 436 ...
## $ ARDAHAN : num [1:81] 1039 751 1362 305 781 ...
## $ IÄžDIR : num [1:81] 1081 750 1464 144 884 ...
## $ YALOVA : num [1:81] 906 1144 342 1363 628 ...
## $ KARABÃœK : num [1:81] 714 952 448 1106 371 ...
## $ KÄ°LÄ°S : num [1:81] 252 210 831 817 647 ...
## $ OSMANÄ°YE : num [1:81] 89 245 668 885 609 581 637 912 970 992 ...
## $ DÃœZCE : num [1:81] 735 973 371 1192 458 ...
# remove first row storing the names
ildist1=ildist[, -1]
ildist1
## # A tibble: 81 × 82
## `Ä°L ADI` ADANA ADIYAMAN AFYONKARAHÄ°SAR AÄžRI AMASYA ANKARA ANTALYA ARTVÄ°N
## <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 ADANA 0 338 579 978 604 492 548 1005
## 2 ADIYAMAN 338 0 917 646 628 738 886 717
## 3 AFYONKARAHİ… 579 917 0 1320 596 255 287 1225
## 4 AÄžRI 978 646 1320 0 740 1056 1426 365
## 5 AMASYA 604 628 596 740 0 331 824 679
## 6 ANKARA 492 738 255 1056 331 0 543 960
## 7 ANTALYA 548 886 287 1426 824 543 0 1433
## 8 ARTVÄ°N 1005 717 1225 365 679 960 1433 0
## 9 AYDIN 881 1219 340 1635 936 596 346 1565
## 10 BALIKESÄ°R 903 1241 324 1576 842 536 506 1452
## # … with 71 more rows, and 73 more variables: AYDIN <dbl>, BALIKESİR <dbl>,
## # BİLECİK <dbl>, BİNGÖL <dbl>, BİTLİS <dbl>, BOLU <dbl>, BURDUR <dbl>,
## # BURSA <dbl>, ÇANAKKALE <dbl>, ÇANKIRI <dbl>, ÇORUM <dbl>, DENİZLİ <dbl>,
## # DÄ°YARBAKIR <dbl>, EDÄ°RNE <dbl>, ELAZIÄž <dbl>, ERZÄ°NCAN <dbl>,
## # ERZURUM <dbl>, ESKÄ°ÅžEHÄ°R <dbl>, GAZÄ°ANTEP <dbl>, GÄ°RESUN <dbl>,
## # GÜMÜŞHANE <dbl>, HAKKARİ <dbl>, HATAY <dbl>, ISPARTA <dbl>, MERSİN <dbl>,
## # İSTANBUL <dbl>, İZMİR <dbl>, KARS <dbl>, KASTAMONU <dbl>, KAYSERİ <dbl>, …
ildist2=ildist1[, -1]
str(ildist2)
## tibble [81 × 81] (S3: tbl_df/tbl/data.frame)
## $ ADANA : num [1:81] 0 338 579 978 604 ...
## $ ADIYAMAN : num [1:81] 338 0 917 646 628 ...
## $ AFYONKARAHÄ°SAR : num [1:81] 579 917 0 1320 596 ...
## $ AÄžRI : num [1:81] 978 646 1320 0 740 ...
## $ AMASYA : num [1:81] 604 628 596 740 0 331 824 679 936 842 ...
## $ ANKARA : num [1:81] 492 738 255 1056 331 ...
## $ ANTALYA : num [1:81] 548 886 287 1426 824 ...
## $ ARTVÄ°N : num [1:81] 1005 717 1225 365 679 ...
## $ AYDIN : num [1:81] 881 1219 340 1635 936 ...
## $ BALIKESÄ°R : num [1:81] 903 1241 324 1576 842 ...
## $ BÄ°LECÄ°K : num [1:81] 786 1039 207 1361 626 ...
## $ BİNGÖL : num [1:81] 633 348 1099 352 642 ...
## $ BÄ°TLÄ°S : num [1:81] 746 414 1290 232 833 ...
## $ BOLU : num [1:81] 689 927 417 1146 411 ...
## $ BURDUR : num [1:81] 649 987 166 1403 762 ...
## $ BURSA : num [1:81] 857 1111 278 1417 683 ...
## $ ÇANAKKALE : num [1:81] 1097 1390 518 1694 959 ...
## $ ÇANKIRI : num [1:81] 591 769 398 987 247 131 686 882 738 663 ...
## $ ÇORUM : num [1:81] 582 704 505 831 91 240 732 720 845 786 ...
## $ DENÄ°ZLÄ° : num [1:81] 762 1100 221 1516 817 ...
## $ DÄ°YARBAKIR : num [1:81] 538 206 1110 440 707 ...
## $ EDÄ°RNE : num [1:81] 1183 1421 682 1641 906 ...
## $ ELAZIÄž : num [1:81] 496 284 961 492 538 ...
## $ ERZÄ°NCAN : num [1:81] 677 548 955 370 375 ...
## $ ERZURUM : num [1:81] 809 522 1141 182 560 ...
## $ ESKÄ°ÅžEHÄ°R : num [1:81] 691 959 141 1298 574 ...
## $ GAZÄ°ANTEP : num [1:81] 216 151 795 762 583 ...
## $ GÄ°RESUN : num [1:81] 720 706 868 539 322 ...
## $ GÜMÜŞHANE : num [1:81] 780 678 1027 381 424 ...
## $ HAKKARÄ° : num [1:81] 910 655 1489 425 1164 ...
## $ HATAY : num [1:81] 196 317 776 957 681 ...
## $ ISPARTA : num [1:81] 619 957 167 1373 719 ...
## $ MERSÄ°N : num [1:81] 69 407 572 1047 638 ...
## $ Ä°STANBUL : num [1:81] 951 1189 450 1408 674 ...
## $ Ä°ZMÄ°R : num [1:81] 908 1246 329 1649 925 ...
## $ KARS : num [1:81] 1014 727 1343 214 762 ...
## $ KASTAMONU : num [1:81] 696 875 504 990 255 237 791 846 844 677 ...
## $ KAYSERÄ° : num [1:81] 335 421 523 816 344 316 616 823 825 848 ...
## $ KIRKLARELÄ° : num [1:81] 1160 1398 659 1617 882 ...
## $ KIRÅžEHÄ°R : num [1:81] 377 556 425 940 313 183 570 942 765 706 ...
## $ KOCAELÄ° (Ä°ZMÄ°T) : num [1:81] 841 1079 340 1298 563 ...
## $ KONYA : num [1:81] 358 696 226 1112 510 ...
## $ KÃœTAHYA : num [1:81] 676 1014 97 1377 653 ...
## $ MALATYA : num [1:81] 397 186 863 587 460 ...
## $ MANÄ°SA : num [1:81] 887 1224 308 1628 903 ...
## $ KAHRAMANMARAÅž : num [1:81] 198 163 777 809 508 ...
## $ MARDÄ°N : num [1:81] 549 295 1128 514 802 ...
## $ MUÄžLA : num [1:81] 858 1196 364 1658 959 ...
## $ MUÅž : num [1:81] 743 456 1208 241 751 ...
## $ NEVÅžEHÄ°R : num [1:81] 288 504 444 889 358 275 537 896 746 769 ...
## $ NÄ°ÄžDE : num [1:81] 210 548 464 940 440 340 545 947 766 788 ...
## $ ORDU : num [1:81] 708 732 823 584 277 ...
## $ RÄ°ZE : num [1:81] 918 772 1077 430 531 ...
## $ SAKARYA (ADAPAZARI): num [1:81] 803 1041 302 1261 526 ...
## $ SAMSUN : num [1:81] 754 757 676 730 131 ...
## $ SÄ°Ä°RT : num [1:81] 721 390 1297 328 894 ...
## $ SÄ°NOP : num [1:81] 868 883 676 894 257 ...
## $ SÄ°VAS : num [1:81] 428 413 706 618 221 ...
## $ TEKÄ°RDAÄž : num [1:81] 1082 1320 581 1539 804 ...
## $ TOKAT : num [1:81] 493 517 645 674 113 380 873 617 985 926 ...
## $ TRABZON : num [1:81] 839 780 998 482 452 ...
## $ TUNCELÄ° : num [1:81] 631 419 1079 419 498 ...
## $ ÅžANLIURFA : num [1:81] 355 112 934 617 711 ...
## $ UÅžAK : num [1:81] 691 1029 112 1432 708 ...
## $ VAN : num [1:81] 905 573 1424 228 967 ...
## $ YOZGAT : num [1:81] 490 619 479 841 200 214 683 829 819 760 ...
## $ ZONGULDAK : num [1:81] 765 1003 484 1205 471 ...
## $ AKSARAY : num [1:81] 268 580 368 965 421 224 461 972 670 692 ...
## $ BAYBURT : num [1:81] 801 676 1080 305 457 ...
## $ KARAMAN : num [1:81] 293 631 340 1113 621 ...
## $ KIRIKKALE : num [1:81] 486 665 338 985 260 74 563 889 679 620 ...
## $ BATMAN : num [1:81] 634 302 1210 366 807 ...
## $ ÅžIRNAK : num [1:81] 720 465 1299 424 1001 ...
## $ BARTIN : num [1:81] 784 1022 518 1171 436 ...
## $ ARDAHAN : num [1:81] 1039 751 1362 305 781 ...
## $ IÄžDIR : num [1:81] 1081 750 1464 144 884 ...
## $ YALOVA : num [1:81] 906 1144 342 1363 628 ...
## $ KARABÃœK : num [1:81] 714 952 448 1106 371 ...
## $ KÄ°LÄ°S : num [1:81] 252 210 831 817 647 ...
## $ OSMANÄ°YE : num [1:81] 89 245 668 885 609 581 637 912 970 992 ...
## $ DÃœZCE : num [1:81] 735 973 371 1192 458 ...
ildist2
## # A tibble: 81 × 81
## ADANA ADIYAMAN AFYONKARAHÄ°SAR AÄžRI AMASYA ANKARA ANTALYA ARTVÄ°N AYDIN
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 0 338 579 978 604 492 548 1005 881
## 2 338 0 917 646 628 738 886 717 1219
## 3 579 917 0 1320 596 255 287 1225 340
## 4 978 646 1320 0 740 1056 1426 365 1635
## 5 604 628 596 740 0 331 824 679 936
## 6 492 738 255 1056 331 0 543 960 596
## 7 548 886 287 1426 824 543 0 1433 346
## 8 1005 717 1225 365 679 960 1433 0 1565
## 9 881 1219 340 1635 936 596 346 1565 0
## 10 903 1241 324 1576 842 536 506 1452 291
## # … with 71 more rows, and 72 more variables: BALIKESİR <dbl>, BİLECİK <dbl>,
## # BİNGÖL <dbl>, BİTLİS <dbl>, BOLU <dbl>, BURDUR <dbl>, BURSA <dbl>,
## # ÇANAKKALE <dbl>, ÇANKIRI <dbl>, ÇORUM <dbl>, DENİZLİ <dbl>,
## # DÄ°YARBAKIR <dbl>, EDÄ°RNE <dbl>, ELAZIÄž <dbl>, ERZÄ°NCAN <dbl>,
## # ERZURUM <dbl>, ESKÄ°ÅžEHÄ°R <dbl>, GAZÄ°ANTEP <dbl>, GÄ°RESUN <dbl>,
## # GÜMÜŞHANE <dbl>, HAKKARİ <dbl>, HATAY <dbl>, ISPARTA <dbl>, MERSİN <dbl>,
## # İSTANBUL <dbl>, İZMİR <dbl>, KARS <dbl>, KASTAMONU <dbl>, KAYSERİ <dbl>, …
# apply multidimensional scaling
mds_fit=cmdscale(ildist2, k = 2, )
# getting coordinates
x=mds_fit[, 1]
y=mds_fit[, 2]
# plotting
plot(x, y, pch = 19)
ildist
## # A tibble: 81 × 83
## `Ä°L PLAKA NO` `Ä°L ADI` ADANA ADIYAMAN AFYONKARAHÄ°SAR AÄžRI AMASYA ANKARA
## <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 01 ADANA 0 338 579 978 604 492
## 2 02 ADIYAMAN 338 0 917 646 628 738
## 3 03 AFYONKARAHİS… 579 917 0 1320 596 255
## 4 04 AÄžRI 978 646 1320 0 740 1056
## 5 05 AMASYA 604 628 596 740 0 331
## 6 06 ANKARA 492 738 255 1056 331 0
## 7 07 ANTALYA 548 886 287 1426 824 543
## 8 08 ARTVÄ°N 1005 717 1225 365 679 960
## 9 09 AYDIN 881 1219 340 1635 936 596
## 10 10 BALIKESÄ°R 903 1241 324 1576 842 536
## # … with 71 more rows, and 75 more variables: ANTALYA <dbl>, ARTVİN <dbl>,
## # AYDIN <dbl>, BALIKESİR <dbl>, BİLECİK <dbl>, BİNGÖL <dbl>, BİTLİS <dbl>,
## # BOLU <dbl>, BURDUR <dbl>, BURSA <dbl>, ÇANAKKALE <dbl>, ÇANKIRI <dbl>,
## # ÇORUM <dbl>, DENİZLİ <dbl>, DİYARBAKIR <dbl>, EDİRNE <dbl>, ELAZIĞ <dbl>,
## # ERZÄ°NCAN <dbl>, ERZURUM <dbl>, ESKÄ°ÅžEHÄ°R <dbl>, GAZÄ°ANTEP <dbl>,
## # GİRESUN <dbl>, GÜMÜŞHANE <dbl>, HAKKARİ <dbl>, HATAY <dbl>, ISPARTA <dbl>,
## # MERSİN <dbl>, İSTANBUL <dbl>, İZMİR <dbl>, KARS <dbl>, KASTAMONU <dbl>, …
text(x, y, pos = 4, labels =colnames(ildist2))
